Make show-standard-help narrow to prefix

This is what describe-prefix-bindings does and it should be consistent.

diff --git a/which-key.el b/which-key.el
index 490ca24aca081e96e5890b41d71f4f2791e9353f..3aaf86c97e1c8ea7c26ace203c84ce270ea1c5bd 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1780,7 +1780,13 @@ Usually this is `describe-prefix-bindings'."
   (interactive)
   (let ((which-key-inhibit t))
     (which-key--hide-popup-ignore-command)
-    (funcall which-key--prefix-help-cmd-backup)))
+    (cond ((eq which-key--prefix-help-cmd-backup
+               'describe-prefix-bindings)
+           ;; This is essentially what `describe-prefix-bindings' does
+           (describe-bindings
+            (kbd (which-key--current-key-string))))
+          ((functionp which-key--prefix-help-cmd-backup)
+           (funcall which-key--prefix-help-cmd-backup)))))
 
 ;;;###autoload
 (defun which-key-show-next-page-no-cycle ()